home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga News 95
/
Amiga News 95.iso
/
dpat
/
dpat94
/
rexx
/
teaser.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1995-01-29
|
2KB
|
57 lines
/*-------------------------------------*/
/* Teaser.rexx v1.1 (c) 1995 Ldfa */
/* */
/* Script de connection sur le serveur */
/* Teaser en T2 pour AmiTEL 2.1 */
/* */
/*-------------------------------------*/
Envoi = '13 41'x
Retour = '13 42'x
Repetition = '13 43'x
Guide = '13 44'x
Annulation = '13 45'x
Sommaire = '13 46'x
Correction = '13 47'x
Suite = '13 48'x
Login = "Mon pseudo" /* Inscrire ici votre pseudonyme */
Passwd = "Mon mot de passe" /* et votre mot de passe */
address AMITEL_REXX /* Nom du Port ARexx d'AmiTEL */
options results
TIMEOUT 60 /* Temps d'attente maximum */
WAIT "service:" /* Attend 'service:' */
if RC ~= 0 then /* Si temps d'attente dépassé */
do
REQINFO "Le serveur ne répond pas!" /* Affiche Resquester */
exit /* Fin du programme */
end
SEND "178270383" || Envoi /* Envoi '178270383' */
DELAY 10 /* Attend 10 secondes */
SEND Suite /* Envoi SUITE */
WAIT "Pseudo" /* Attend 'Pseudo' */
if RC ~= 0 then /* Si temps d'attente dépassé */
do
REQINFO "Le serveur ne répond pas!" /* Affiche Resquester */
exit /* Fin du programme */
end
SEND Login || Envoi /* Envoi pseudonyme */
WAIT "Pass" /* Attend 'Pass' */
if RC ~= 0 then /* Si temps d'attente dépassé */
do
REQINFO "Le serveur ne répond pas!" /* Affiche Resquester */
exit /* Fin du programme */
end
SEND Passwd || Envoi /* Envoi mot de passe */